unit frm_RecalcActs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, shbl_Card, PropFilerEh, StdCtrls, Mask, DBCtrlsEh, DB,
  FIBDataSet, pFIBDataSet, GridsEh, DBGridEh, PropStorageEh, ActnList,
  ComCtrls, ToolWin, Buttons, ExtCtrls, FIBDatabase, pFIBDatabase,
  MemTableDataEh, MemTableEh;

type
  TfrmRecalcActs = class(TshblCard)
    Panel2: TPanel;
    dbgMeterList: TDBGridEh;
    dsAccpointActs: TpFIBDataSet;
    dscAccpointActs: TDataSource;
    dbtBDate: TDBDateTimeEditEh;
    dbtEDate: TDBDateTimeEditEh;
    Label1: TLabel;
    Label2: TLabel;
    LocalTrans: TpFIBTransaction;
    mteAccpointActs: TMemTableEh;
    dsAccpointActsID: TFIBIntegerField;
    dsAccpointActsNAME: TFIBStringField;
    dsAccpointActsACT_DATE: TFIBDateField;
    dsAccpointActsBDATE: TFIBDateField;
    dsAccpointActsEDATE: TFIBDateField;
    dsAccpointActsCONSTANT: TFIBIntegerField;
    mteAccpointActsID: TIntegerField;
    mteAccpointActsNAME: TStringField;
    mteAccpointActsACT_DATE: TDateField;
    mteAccpointActsBDATE: TDateField;
    mteAccpointActsEDATE: TDateField;
    mteAccpointActsCONSTANT: TIntegerField;
    bSearch: TButton;
    BitBtn3: TBitBtn;
    aSearchAct: TAction;
    aRecalcActs: TAction;
  private
    { Private declarations }
  public
    { Public declarations }
    PAccpoint_id :Integer
  end;

var
  frmRecalcActs: TfrmRecalcActs;

//procedure RecalcActsDlg (pAccpoint_id :integer; aOwner :TComponent);

implementation

uses uDM, uMAIN;

{$R *.dfm}

{
procedure RecalcActsDlg (pAccpoint_id :integer; aOwner :TComponent);
begin
  frmRecalcActs := TfrmRecalcActs.Create(aOwner);

  frmRecalcActs.PAccpoint_id := pAccpoint_id;

  frmRecalcActs.ShowModal;

  FreeAndNil (frmRecalcActs);
end;}

end.
